﻿Public Class DataBaseTableColumn

    Private _columnID As Integer
    Public Property ColumnID() As Integer
        Get
            ColumnID = _columnID
        End Get
        Set(ByVal Value As Integer)
            _columnID = Value
        End Set
    End Property

    Private _columnName As String
    Public Property ColumnName() As String
        Get
            ColumnName = _columnName
        End Get
        Set(ByVal Value As String)
            _columnName = Value
        End Set
    End Property

    Private _columnTypeName As String
    Public Property ColumnTypeName() As String
        Get
            ColumnTypeName = _columnTypeName
        End Get
        Set(ByVal Value As String)
            _columnTypeName = Value
        End Set
    End Property

    Private _maxLength As Integer
    Public Property MaxLength() As Integer
        Get
            MaxLength = _maxLength
        End Get
        Set(ByVal Value As Integer)
            _maxLength = Value
        End Set
    End Property

    Private _isNullable As Boolean
    Public Property IsNullable() As Boolean
        Get
            IsNullable = _isNullable
        End Get
        Set(ByVal Value As Boolean)
            _isNullable = Value
        End Set
    End Property

    Public ReadOnly Property IsNullableDisplay() As String
        Get
            If IsNullable Then
                Return "null"
            Else
                Return "not null"
            End If
        End Get
    End Property

    Private _propertyTypeName As String
    Public Property PropertyTypeName() As String
        Get
            Return _propertyTypeName
        End Get
        Set(value As String)
            _propertyTypeName = value
        End Set
    End Property

    Private _isUnique As Boolean
    Public Property IsUnique() As Boolean
        Get
            IsUnique = _isUnique
        End Get
        Set(ByVal Value As Boolean)
            _isUnique = Value
        End Set
    End Property
End Class
